10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 PRINTTAB(8)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
30 PRINTTAB(8)" PUDDING MOUNTAIN MINER [146]"
40 PRINTTAB(10)" BY CHARLES BRANNON "
50 PRINTTAB(6)"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60 PRINTTAB(6)" PRESS ANY KEY  TO CONTINUE [146]"
90 GET A$:IFA$=""THEN90
100 V=(PEEK(0)=76):W=40+18*V:T=1024-6656*V:C=55296+16896*V:S=53281+16402*V
110 C$=CHR$(147):PRINTC$:POKES,1-26*V:FORI=0TOW-1:Q=22*W+I
115 POKET+Q,160:POKEC+Q,7:NEXT
120 S$=CHR$(32)+CHR$(158)+CHR$(18)+CHR$(188)+CHR$(146)+CHR$(156)+CHR$(185)
130 S$=S$+CHR$(31)+CHR$(175):Q=RND(1)*(W-7)+3+22*W:POKET+Q,164:POKEC+Q,5
140 FORI=0TOW-1:FORJ=0TO7*RND(1)+3:Q=(21-J)*W+I:POKET+Q,160:POKEC+Q,2:NEXT:NEXT
150 PRINTCHR$(142);CHR$(19);:Y%=4*RND(1)+1:FORI=1TOY%:PRINT:NEXT:X=0
160 L$=CHR$(157):PRINTS$;L$;L$;L$;:X=X+1:GETA$:IFA$=""ANDX<W-4THEN160
170 IFX=W-4THENPRINTTAB(X);CHR$(32);CHR$(32);CHR$(32);:GOTO150
180 FORI=Y%+2TO22:Q=I*W+X+1:P=PEEK(T+Q)
190 POKET+Q-W,32:POKET+Q,90:POKEC+Q,8*RND(1):IFP=32THENNEXT
200 B=B+1:POKET+Q,32:IFI<22GOTO160
210 IFP<>164THENFORI=0TO255:POKEC+Q,I:POKET+Q,I:NEXT:PRINTC$;"YOU LOST":GOTO230
220 FORI=1TO50:POKET+Q,32+132*F:F=1-F:NEXT:PRINTC$;"YOU WON! ";B;"BOMBS"
230 PRINT:PRINT"           PRESS "CHR$(18);"RETURN";CHR$(146);" TO PLAY  AGAIN"
240 GETA$:IFA$<>CHR$(13)THEN240
250 RUN100